********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

NUTS : REAL;
NUAS : REAL;
NUTT : REAL;
NUTQ : REAL;
NI : CHAR;
BEGIN
CLRSCR;
WRITE ('MASUKAN NILAI UTS:'); READLN (NUTS);
WRITE ('MASUKAN NILAI UAS:'); READLN (NUAS);
WRITE ('MASUKAN NILAI NUT:'); READLN (NUTT);
WRITE ('MASUKAN NILAI UTQ:'); READLN (NUTQ);

NA := (0.3 * NUTS) + (0.4 * NUAS) + (0.15 * NUTT) + (0.15 * NUTQ);
IF (NA >=80) THEN BEGIN
NI := 'A';
END ELSE IF (NA >= 70) THEN BEGIN
NI := 'B';
END ELSE IF (NA >= 50) THEN BEGIN
NI := 'C';
END ELSE IF (NA >= 30) THEN BEGIN
NI := 'D';
END ELSE BEGIN
NI := 'E';
END;

WRITELN;
WRITELN ('NILAI AKHIR :',NA:0:2);
WRITELN ('NILAI INDEKS:',NI);
READLN;
END.